home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 265 (1993-12-10)(Manewaldt, A.)(DE)(PD)(Disk 3 of 3).zip / Taifun 265 (1993-12-10)(Manewaldt, A.)(DE)(PD)(Disk 3 of 3).adf / NoName / NoName.amosSourceCode < prev    next >
AMOS Source Code  |  1990-10-12  |  2KB  |  123 lines
  1. Screen Open 0,640,512,16,Hires
  2. Colour 1,$0
  3. Open In 1,"Flag"
  4. Input #1,FLAG
  5. Close 1
  6. Dir$="daten/"
  7. Curs Off 
  8. Change Mouse 2
  9. LEBEN=9
  10. TXT$="1"
  11. Hide On 
  12. MIDD=1
  13. Load Iff "Titel",0
  14. Load "musik.abk"
  15. Music 1
  16. Wait Key 
  17. Unpack 8 To 0
  18. Print "Alten Spielstand laden? (J/N)"
  19. Do 
  20.    A$=Inkey$
  21.    A$=Upper$(A$)
  22.    If A$="J" Then Goto SAFEDGAME
  23.    If A$="N" Then Goto AUFBAU
  24. Loop 
  25. AUFBAU:
  26. Screen Open 0,640,512,16,Hires
  27. Load Iff "screen",0
  28. Reserve Zone 30
  29. Rem Get Sprite Palette 
  30. Flash Off 
  31. Colour 1,$0
  32. NR=1
  33. B=1
  34. X=0
  35. For I=1 To 10
  36.    Paste Bob X,235,NR
  37.    Set Zone B,X,235 To X+35,270
  38.    X=X+35
  39.    NR=NR+1
  40.    B=B+1
  41. Next I
  42. Paste Bob X+35,235,23
  43. Set Zone B,X+35,235 To X+35+35,270
  44. For I=1 To 3
  45.    X=X+35
  46. Next I
  47. P=X
  48. Paste Bob X,200,15
  49. X=X+35
  50. Paste Bob X,200,24
  51. X=X+35
  52. Paste Bob X,200,30
  53. X=X+35
  54. Paste Bob X,200,15
  55. X=X+35
  56. Paste Bob X,200,28
  57. Set Zone B+1,P,200 To X+35,235
  58. Paste Bob X-35*3,235,15
  59. Paste Bob X-35*2,235,24
  60. Paste Bob X-35,235,14
  61. Paste Bob X,235,15
  62. Set Zone B+2,P,235 To X+35,270
  63. Limit Mouse 135,249 To 440,300
  64. Show 
  65. L=35*6
  66. M=35*3
  67. Gosub LADEN
  68. SCHLEIFE:
  69. Do 
  70.    C=Mouse Click
  71.    If C<>0
  72.       VM=Mouse Zone
  73.       V=VM-1
  74.       Goto VARIABEL
  75.    End If 
  76. Loop 
  77. LADEN:
  78. Open In 1,TXT$
  79. Input #1,A
  80. Input #1,A$
  81. Close 1
  82. Print At(0,28);"Weiter bei >:      "
  83. LEBEN=LEBEN+A
  84. If LEBEN<0 Then LEBEN=0
  85. If LEBEN>12 Then LEBEN=12
  86. Locate 0,10
  87. Print A$
  88. Print At(0,27);"St�rkepunkte:                                "
  89. Print At(0,27);"St�rkepunkte:";LEBEN
  90. TXT$=""
  91. Return 
  92. VARIABEL:
  93. E=E+1
  94. If VM=12 Then E=0 : Goto XYZ
  95. If VM=13 Then Goto SPEICHERN
  96. If VM=0 Then E=0 : Goto SCHLEIFE
  97. If VM=11 and MIDD=1 Then Music Stop : MIDD=0 : E=E-1 : Goto SCHLEIFE
  98. If VM=11 and MIDD=0 Then Music 1 : MIDD=1 : E=E-1 : Goto SCHLEIFE
  99. If V=0 and E=1 Then E=0 : Goto SCHLEIFE
  100. If E=4 Then TXT$="" : E=1 : Print At(0,28);"Weiter bei >:      "
  101. VAR$=Str$(V)
  102. TXT$=TXT$+VAR$-" "
  103. WAR=Val(TXT$)
  104. If WAR>FLAG Then TXT$="" : E=0 : Print At(0,28);"Weiter bei >:     " : Goto SCHLEIFE
  105. Print At(0,28);"Weiter bei >:";TXT$
  106. Goto SCHLEIFE
  107. XYZ:
  108. Locate 0,10
  109. A$="                                                                                                                                                                                                                                                     "
  110. Print A$+A$+A$+A$+A$
  111. If LEBEN=0 Then TXT$="445"
  112. Gosub LADEN
  113. Goto SCHLEIFE
  114. SPEICHERN:
  115. Open Out 1,"0"
  116. Print #1,LEBEN
  117. Print #1,A$
  118. Close 1
  119. End 
  120. SAFEDGAME:
  121. TXT$="0"
  122. LEBEN=0
  123. Goto AUFBAU